**********************************************************************
*  ʤO峹޲zt Ver 3.0 Build 20030628 
*
*  vҦ: ʤOŶ(asp163.net)
*
*  {s@: Webboy Studio
*           
*  Da}: http://www.asp163.net     ʤOŶ
*
*  ׾¦a}: http://bbs.asp163.net
*
*@cs@J
*
*@Da}Jhttp://snowflakesinn.hk.st/@@
*
*@{½ĶGۥ[@  	     
*	                 
**********************************************************************
*  Power System Of Article Management  Ver 3.0 Build 20030628
*  Copyright 2002-2003 asp163.net - All Rights Reserved.
*  asp163 is a trademark of asp163.net
**********************************************************************


ɮצW١GѼƽեλ

    FKjaק糧tΡASjaѥtΪ@ǹL{ΨƽեΰѼƪC

1Bsyscode.aspL{Ψ

'=================================================
'L{WGShowPath
'@  ΡGܡA{bҦmɯT
'  ơGL
'=================================================
sub ShowPath()
end sub

'=================================================
'L{WGShowRootClass
'@  ΡGܤ@ء]LSĪG^
'  ơGL
'=================================================
sub ShowRootClass()
end sub

'=================================================
'L{WGShowRootClass_Menu
'@  ΡGܤ@ء]Uԥ\ĪG^
'  ơGL
'=================================================
sub ShowRootClass_Menu()
end sub

'=================================================
'L{WGShowJumpClass
'@  ΡGܡبKUԲM
'  ơGL
'=================================================
sub ShowJumpClass()
end sub

'=================================================
'L{WGShowClass_Tree
'@  ΡGܩҦء]ΥؿĪG^
'  ơGL
'=================================================
sub ShowClass_Tree()
end sub


'=================================================
'L{WGShowSpecial
'@  ΡGHݦVC覡ܱMDW
'  ơGSpecialNum  ------̦hܦh֭ӱMDW
'=================================================
sub ShowSpecial(SpecialNum)
end sub

'=================================================
'L{WGShowAllSpecial
'@  ΡGܩҦMD
'  ơGL
'=================================================
sub ShowAllSpecial()
end sub

'=================================================
'L{WGShowSiteCount
'@  ΡGܯIέpT
'  ơGL
'=================================================
sub ShowSiteCount()
end sub

'=================================================
'L{WGShowVote
'@  ΡGܺլd
'  ơGL
'=================================================
sub ShowVote()
end sub

'=================================================
'L{WGShowArticle
'@  ΡGܤ峹DT
'  ơGTitleLen  ----D̦hrơA@Ӻ~r=ӭ^r
'=================================================
sub ShowArticle(TitleLen)
end sub

'=================================================
'L{WGArticleContent
'@  ΡGܤ峹ݩʡBDB@̡BsBIƵT
'  ơGintTitleLen  ----D̦hrơA@Ӻ~r=ӭ^r
'        ShowProperty ----O_ܤ峹ݩʡ]T//q^ATrueܡAFalse
'        ShowIncludePic ---O_ܡ[Ϥ]rˡATrueܡAFalse
'        ShowAuthor -------O_ܤ峹@̡ATrueܡAFalse
'        ShowDateType -----ܧs˦A0ܡA1ܦ~A2uܤC
'        ShowHits ---------O_ܤ峹IơATrueܡAFalse
'        ShowHot ----------O_ܼ峹лxATrueܡAFalse
'=================================================
sub ArticleContent(intTitleLen,ShowProperty,ShowIncludePic,ShowAuthor,ShowDateType,ShowHits,ShowHot)
end sub 

'=================================================
'L{WGShowUserArticle
'@  ΡGܥΤ峹DT
'  ơGTitleLen  ----D̦hrơA@Ӻ~r=ӭ^r
'=================================================
sub ShowUserArticle(TitleLen)
end sub

'=================================================
'L{WGShowSearchResult
'@  ΡGܷjG
'  ơGL
'=================================================
sub ShowSearchResult()
end sub


'=================================================
'L{WGShowAnnounce
'@  ΡGܥiT
'  ơGShowType ------ܤ覡A1aVA2V
'        AnnounceNum  ----̦hܦhֱi
'=================================================
sub ShowAnnounce(ShowType,AnnounceNum)
end sub

'=================================================
'L{WGShowHot
'@  ΡGܼ峹
'  ơGArticleNum  ----̦hܦhֽg峹
'        TitleLen   ----D̦hrơA@Ӻ~r=ӭ^r
'=================================================
sub ShowHot(ArticleNum,TitleLen)
end sub

'=================================================
'L{WGShowElite
'@  ΡGܱˤ峹
'  ơGArticleNum  ----̦hܦhֽg峹
'        TitleLen   ----D̦hrơA@Ӻ~r=ӭ^r
'=================================================
sub ShowElite(ArticleNum,TitleLen)
end sub

'=================================================
'L{WGShowLogo
'@  ΡGܺLOGO
'  ơGL
'=================================================
sub ShowLogo()
end sub

'=================================================
'L{WGShowBanner
'@  ΡGܺBanner
'  ơGL
'=================================================
sub ShowBanner()
end sub

'=================================================
'L{WGShowAD
'@  ΡGܾTsi
'  ơGL
'=================================================
sub ShowAD()
end sub

'=================================================
'L{WGShowCorrelative
'@  ΡGܬ峹
'  ơGArticleNum  ----̦hܦhֽg峹
'        TitleLen   ----D̦hrơA@Ӻ~r=ӭ^r
'=================================================
sub ShowCorrelative(ArticleNum,TitleLen)
end sub

'=================================================
'L{WGShowComment
'@  ΡGܬ
'  ơGArticleNum  ----̦hܦhֽg峹
'        TitleLen   ----D̦hrơA@Ӻ~r=ӭ^r
'=================================================
sub ShowComment(CommentNum)
end sub

'=================================================
'L{WGShowPrevArticle
'@  ΡGܤW@g峹
'  ơGTitleLen   ----D̦hrơA@Ӻ~r=ӭ^r
'=================================================
sub ShowPrevArticle(TitleLen)
end sub

'=================================================
'L{WGShowNextArticle
'@  ΡGܤW@g峹
'  ơGTitleLen   ----D̦hrơA@Ӻ~r=ӭ^r
'=================================================
sub ShowNextArticle(TitleLen)
end sub

'=================================================
'L{WGShowPicArticle
'@  ΡGܹϤ峹
'  ơGintClassID  ----IDA0ҦءAYj0AhܫwؤΨlتϤ峹
'        ArticleNum  ----̦hܦhֽg峹
'        TitleLen   ----D̦hrơA@Ӻ~r=ӭ^r
'        ShowType   ----ܤ覡C1uϤ+DA2Ϥ+D+e²
'        Cols       ----CơCWLCƴNC
'        ImgWidth   ----Ϥe
'        ImgHeight  ----Ϥ
'        ContentLen ----e̦hr
'        Hot        ----O_O峹
'        Elite      ----O_Oˤ峹
'=================================================
sub ShowPicArticle(intClassID,ArticleNum,TitleLen,ShowType,Cols,ImgWidth,ImgHeight,ContentLen,Hot,Elite)
end sub

'=================================================
'L{WGGetPicArticleTitle
'@  ΡGܹϤ峹D
'  ơGintTitleLen  ----D̦hrơA@Ӻ~r=ӭ^r
'        intImgWidth   ----Ϥe
'        intImgHeight  ----Ϥ
'=================================================
sub GetPicArticleTitle(intTitleLen,intImgWidth,intImgHeight)
end sub

'=================================================
'L{WGMenuJS
'@  ΡGͦUԥ\JSNX
'  ơGL
'=================================================
sub MenuJS()
end sub


'=================================================
'L{WGPopAnnouceWindow
'@  ΡGuXif
'  ơGL
'=================================================
sub PopAnnouceWindow(Width,Height)
end sub

'=================================================
'L{WGShowArticleContent
'@  ΡGܤ峹骺eAiH
'  ơGL
'=================================================
sub ShowArticleContent()
end sub

'=================================================
'L{WGManualPagination
'@  ΡGĥΤʤ覡ܤ峹骺e
'  ơGL
'=================================================
sub ManualPagination()
end sub

'=================================================
'L{WGAutoPagination
'@  ΡGĥΦ۰ʤ覡ܤ峹骺e
'  ơGL
'=================================================
sub AutoPagination()
end sub

'=================================================
'L{WGShowFriendSite
'@  ΡGܤͱ쵲I
'  ơGLinkType  ----쵲覡A1LOGO쵲A2r쵲
'       SiteNum   ----̦hܦh֭ӯI
'       Cols      ----XC
'       ShowType  ----ܤ覡C1VWuʡA2VCA3UԲM
'=================================================
sub ShowFriendSite(LinkType,SiteNum,Cols,ShowType)
end sub

'=================================================
'L{WGShowUserLogin
'@  ΡGܥΤn
'  ơGL
'=================================================
sub ShowUserLogin()
end sub

'=================================================
'L{WGShowTopUser
'@  ΡGܥΤƦAwo峹ƱƧǡAY۵AAUᶶǱƧ
'  ơGUserNum-------ܪΤӼ
'=================================================
sub ShowTopUser(UserNum)
end sub

'=================================================
'L{WGShowAllUser
'@  ΡGܩҦΤ
'  ơGL
'=================================================
sub ShowAllUser()
end sub






2Bfunction.aspƩML{

'*************************************************
'ƦWGgotTopic
'@  ΡGIrA~r@ӺӦrA^@Ӧr
'  ơGstr   ----r
'       strlen ----I
'^ȡGI᪺r
'*************************************************
function gotTopic(str,strlen)
end function

'***********************************************
'ƦWGJoinChar
'@  ΡGV}[J ?  &
'  ơGstrUrl  ----}
'^ȡG[F ?  & }
'***********************************************
function JoinChar(strUrl)
end function

'***********************************************
'L{WGshowpage
'@  ΡGܡW@ U@H
'  ơGsfilename  ----쵲}
'       totalnumber ----`ƶq
'       maxperpage  ----Cƶq
'       ShowTotal   ----O_`ƶq
'       ShowAllPages ---O_ΤUԲMܩҦHѸCYǭϥΡA_h|X{JS~C
'       strUnit     ----pƳ
'***********************************************
sub showpage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit)
end sub

'********************************************
'ƦWGIsValidEmail
'@  ΡGˬdEmaila}Xk
'  ơGemail ----nˬdEmaila}
'^ȡGTrue  ----Emaila}Xk
'       False ----Emaila}Xk
'********************************************
function IsValidEmail(email)
end function

'***************************************************
'ƦWGIsObjInstalled
'@  ΡGˬdեO_wgw
'  ơGstrClassString ----եW
'^ȡGTrue  ----wgw
'       False ----Sw
'***************************************************
Function IsObjInstalled(strClassString)
End Function

'**************************************************
'ƦWGstrLength
'@  ΡGDrסC~rӦrA^@ӦrC
'  ơGstr  ----nDתr
'^ȡGr
'**************************************************
function strLength(str)
end function

'****************************************************
'ƦWGSendMail
'@  ΡGJmailեoel
'  ơGMailtoAddress  ----HHa}
'        MailtoName    -----HHmW
'        Subject       -----DD
'        MailBody      -----H󤺮e
'        FromName      -----oHHmW
'        MailFrom      -----oHHa}
'        Priority      -----Hu
'****************************************************
function SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority)
end function

'****************************************************
'L{WGWriteErrMsg
'@  ΡGܿ~ܸT
'  ơGL
'****************************************************
sub WriteErrMsg()
end sub

'****************************************************
'L{WGWriteSuccessMsg
'@  ΡGܦ\ܸT
'  ơGL
'****************************************************
sub WriteSuccessMsg(SuccessMsg)
end sub

'**************************************************
'ƦWGCheckUserLogined
'@  ΡGˬdΤO_n
'  ơGL
'^ȡGTrue ----wgn
'        False ---Sn
'**************************************************
function CheckUserLogined()
end function

'**************************************************
'ƦWGReplaceBadChar
'@  ΡGLoDkSQLr
'  ơGstrChar-----nLor
'^ȡGLo᪺r
'**************************************************
function ReplaceBadChar(strChar)
end function


'=================================================
'L{WGShowSearchForm
'@  ΡGܤ峹j
'  ơGShowType ----ܤ覡C1²ҦA2зǼҦA3żҦ
'=================================================
sub ShowSearchForm(Action,ShowType)
end sub